home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ IE Restrictions 1.xpl < prev    next >
Text File  |  2004-02-09  |  6KB  |  126 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="9"
  3. "COUNT"="1"
  4. "UIPATH 1"="Internet\Internet Explorer\Interface Lockdown"
  5. "UIPATH 2"="Appearance\Control Panel\Other Settings"
  6. "NAME"="Internet Options dialog restrictions"
  7. "VERSION"="1.15"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Disable Advanced Tab Changes"
  10. "DESCRIPTION 1"="This plug-in lets you disable any of the options on Internet Explorer's Internet Options dialog. To disable any item, clear the tick beside it; to enable it again, place a tick beside it."
  11. "DESCRIPTION 2"="As a rule, 'Allow' options affect all options on a tab, 'Enable' options only affect certain options on each tab, and 'Show' options hide the tab altogether."
  12. "DESCRIPTION 3"="NOTE: Disabling all of the last six/seven options (the 'show' options) will disable the Internet Options dialog altogether."
  13. "AUTHOR"="Xteq Systems (Neil R. Turner)"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "COMMENT 1"="Based on several plug-ins by Ojatex [ojatex@aol.com] and SΘbastien Maurice"
  16. "CONTACTURL"="http://www.xteq.com/"
  17.  
  18. 'dwrd
  19. sP="HKCU\Software\Policies\Microsoft\Internet Explorer\Control Panel\"
  20. IE="HKLM\Software\Microsoft\Internet Explorer\Version"
  21.  
  22. SUB Plugin_Initialize
  23.  Call Build_Display(1,"Advanced","Allow changes to Advanced tab")
  24.  Call Build_Display(2,"History","Enable History options [General]")
  25.  Call Build_Display(3,"Cache","Enable Temporary Internet Files Settings button [General]")
  26.  Call Build_Display(4,"Connection Settings","Allow changes to Connection tab")
  27.  Call Build_Display(5,"Certificates","Enable Certificates options [Content]") 
  28.  Call Build_Display(6,"Colors","Enable Foreground/Background Colors options [General]")
  29.  Call Build_Display(7,"Fonts","Enable Fonts options [General]")
  30.  Call Build_Display(8,"Languages","Enable Languages options [General]")
  31.  Call Build_Display(9,"Profiles","Enable Microsoft Profile Assistant button [Content]")
  32.  Call Build_Display(10,"Links","Enable Links Colors options [General]")
  33.  Call Build_Display(11,"HomePage","Enable Home page options [General]")
  34.  Call Build_Display(12,"Ratings","Enable Content Advisor options [Content]")
  35.  Call Build_Display(13,"Check_If_Default","Enable Check If Default Browser option [Programs]")
  36.  Call Build_Display(14,"Proxy","Enable Proxy Server options [Connections]")
  37.  Call Build_Display(15,"Autoconfig","Enable Automatic Connection Configuration options [Connections]") 
  38.  Call Build_Display(16,"Connection Wizard","Enable Internet Connection Wizard button [Connections]")
  39.  Call Build_Display(17,"CalendarContact","Enable Calendar and Contact List options [Programs]")
  40.  Call Build_Display(18,"Messaging","Enable E-mail, Newsgroups and Internet Call options [Programs]")
  41.  if RegReadValue(IE) < "5.5" then
  42.   Call Build_Display(19,"Wallet","Enable Microsoft Wallet button [Content]")
  43.  end if
  44.  Call Build_Display(20,"ResetWebSettings","Enable Reset Web Settings button [Programs]")
  45.  Call Build_Display(21,"AdvancedTab","Show Advanced Tab")
  46.  Call Build_Display(22,"CertifPers","Enable Personal Certificate options [Content]")
  47.  Call Build_Display(23,"CertifSite","Enable Site Certificate options [Content]")
  48.  Call Build_Display(24,"FormSuggest","Enable AutoComplete Form option [Content]")
  49.  Call Build_Display(25,"FormSuggest Passwords","Enable AutoComplete Passwords option [Content]") 
  50.  Call Build_Display(26,"GeneralTab","Show General tab")
  51.  Call Build_Display(27,"SecurityTab","Show Security tab")
  52.  Call Build_Display(28,"ContentTab","Show Content tab")
  53.  Call Build_Display(29,"ConnectionsTab","Show Connections tab")
  54.  Call Build_Display(30,"ProgramsTab","Show Programs tab")
  55.  Call Build_Display(31,"SecChangeSettings","Enable Security Level options [Security]")
  56.  Call Build_Display(32,"SecAddSites","Enable Sites button options [Security]")
  57.  Call Build_Display(33,"Connwiz Admin Lock","Enable Internet Connection Wizard [Connections]")
  58.  Call Build_Display(34,"Settings","Enable Temporary Internet Files options [General]")
  59.  Call Build_Display(35,"Accessibility","Enable Accessibility option [General]")
  60.  if RegReadValue(IE) > "6" then
  61.   Call Build_Display(36,"PrivacyTab","Show Privacy Tab")
  62.  end if
  63. END SUB
  64.  
  65. SUB Build_Display(NUMB,VALUE,DESC)
  66.  Call SetUIElement(NUMB,DESC)
  67.  s=RegReadValue(sP&VALUE)
  68.  If IsEmpty(s)=true OR s=0 then
  69.   Call SetUIElementEx(NUMB,true)
  70.  end if
  71. END SUB
  72.  
  73. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  74.  Call Apply_Option(1,"Advanced")
  75.  Call Apply_Option(2,"History")
  76.  Call Apply_Option(3,"Cache")
  77.  Call Apply_Option(4,"Connection Settings")
  78.  Call Apply_Option(5,"Certificates") 
  79.  Call Apply_Option(6,"Colors")
  80.  Call Apply_Option(7,"Fonts")
  81.  Call Apply_Option(8,"Languages")
  82.  Call Apply_Option(9,"Profiles")
  83.  Call Apply_Option(10,"Links")
  84.  Call Apply_Option(11,"HomePage")
  85.  Call Apply_Option(12,"Ratings")
  86.  Call Apply_Option(13,"Check_If_Default")
  87.  Call Apply_Option(14,"Proxy")
  88.  Call Apply_Option(15,"Autoconfig") 
  89.  Call Apply_Option(16,"Connection Wizard")
  90.  Call Apply_Option(17,"CalendarContact")
  91.  Call Apply_Option(18,"Messaging")
  92.  Call Apply_Option(19,"Wallet")
  93.  Call Apply_Option(20,"ResetWebSettings")
  94.  Call Apply_Option(21,"AdvancedTab")
  95.  Call Apply_Option(22,"CertifPers")
  96.  Call Apply_Option(23,"CertifSite")
  97.  Call Apply_Option(24,"FormSuggest")
  98.  Call Apply_Option(25,"FormSuggest Passwords") 
  99.  Call Apply_Option(26,"GeneralTab")
  100.  Call Apply_Option(27,"SecurityTab")
  101.  Call Apply_Option(28,"ContentTab")
  102.  Call Apply_Option(29,"ConnectionsTab")
  103.  Call Apply_Option(30,"ProgramsTab")
  104.  Call Apply_Option(31,"SecChangeSettings")
  105.  Call Apply_Option(32,"SecAddSites")
  106.  Call Apply_Option(33,"Connwiz Admin Lock")
  107.  Call Apply_Option(34,"Settings")
  108.  Call Apply_Option(35,"Accessibility")
  109.  Call Apply_Option(36,"PrivacyTab")
  110. END SUB
  111.  
  112. SUB Apply_Option(NUMB,VALUE)
  113.  b=GetUIElementEx(NUMB)
  114.  if b=true then
  115.   s=RegReadValue(sP&VALUE)
  116.   if IsEmpty(s)=false then
  117.    Call RegDeleteValue(sP&VALUE)
  118.   end if
  119.  else
  120.   Call RegWriteValue(sP&VALUE,1,2)
  121.  end if
  122. END SUB
  123.  
  124. SUB Plugin_Terminate
  125. END SUB
  126.